home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / program / tpwpxeng.zip / HARDERR.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-22  |  651b  |  28 lines
  1. program HardErr;
  2. uses PXEngine, WinCrt;
  3.  
  4. var   PxErr: Integer;
  5.       TblHandle: TableHandle;
  6.  
  7. procedure PX(Code : integer);
  8. begin
  9.   writeln(PXErrMsg(Code));
  10. end;
  11.  
  12. begin
  13.   (* Enable hardware handler so functions, rather than DOS, return errors *)
  14.   PxErr := PXSetHWHandler(True);
  15.   if PxErr <> PxSuccess then
  16.     Writeln(PxErrMsg(PxErr));
  17.  
  18.   PX(PXWinInit('MyApp', pxShared));
  19.   Writeln('Open drive A: and press return');
  20.   ReadLn;
  21.   while PXTblOpen('A:Table', TblHandle, 0, False) = PXERR_DRIVENOTREADY DO
  22.   begin
  23.     Writeln('Please place disk in drive A:.  Press return when ready');
  24.     ReadLn;
  25.   end;
  26.   PX(PXExit);
  27. end.
  28.